home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / MDMNGR49.ZIP / MANAGER.INI < prev    next >
INI File  |  1997-01-16  |  25KB  |  656 lines
  1. [manager]
  2. dbtotal=0
  3. sec_mes1=This is a Pro edition!
  4. sec_mes2=Eno Tide.
  5. sec_mes3=Kaka
  6.  
  7. [Aliases]
  8. n4=;*********************************************
  9. n5=;*  All aliases above this mark      
  10. n6=;*  are either generated or        
  11. n7=;*  added in.
  12. n8=;*********************************************
  13. n9=;*  =MooDoo= Script Manager Pro 4.9 
  14. n10=;*  Copyright ⌐ 1997 I Make Poole, Inc. 
  15. n11=;*********************************************
  16. n12=;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  17. n13=;;;COMMON FUNCTION LIBRARY;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  18. n14=;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  19. n15=mecho { //echo -s =MooDoo= *1 }
  20. n16=filename {
  21. n17=  %lastdir = $readini manager.ini manager lastdir
  22. n18=  %file = $dir="=MooDoo= Script Manager Pro 4.9" %lastdir
  23. n19=  if ( %file == $null ) { mecho 4No Setting. | halt }
  24. n20=  mecho  $+ [ $1 ] $+ < $+ %file $+ >
  25. n21=  //writeini manager.ini manager lastdir %file
  26. n22=}
  27. n23=/v { echo 1 1  2 2  3 3  4 4  5 5  6 6  7 7  8 8  9 9  10 10  11 11  12 12  13 13  14 14  15 15 }
  28. n24=/- /echo -
  29. n25=center {
  30. n26=  %len = $len($strip(*1))
  31. n27=  %sum = 80 - %len
  32. n28=  %sum = %sum / 2
  33. n29=  //echo -s $str(%sum,$chr(160)) $+ *1 $+ $str(%sum,$chr(160))
  34. n30=}
  35. n31=copy.file {
  36. n32=  //write -c $2
  37. n33=  run dos.exe copy $1 $2 
  38. n34=}
  39. n35=;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  40. n36=;;;COMMON FUNCTION LIBRARY;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  41. n37=;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  42. n38=fetch {
  43. n39=  -
  44. n40=  mecho 10Fetch Script.
  45. n41=  if ( $1 == -q && $2 != $null ) { %file = $2 | goto cont }
  46. n42=  filename 13
  47. n43=  :cont
  48. n44=  if ( %autoinsert = YES ) { //path -q %file }
  49. n45=  if ( %autoinfo = YES ) { //ui.insert -q %file | - }
  50. n46=  //run mirc32.exe %file 
  51. n47=  unset %file | unset %lastdir
  52. n48=  mecho 12Done.
  53. n49=}
  54. n50=default.set {
  55. n51=  -
  56. n52=  mecho 10Set Default Script.
  57. n53=  filename 13
  58. n54=  //writeini manager.ini manager default %file
  59. n55=  //alias /default /run mirc32.exe %file
  60. n56=  //alias /F2 /run mirc32.exe %file 
  61. n57=  mecho 12Done.
  62. n58=  mecho 3Use /default or F2 to fetch.
  63. n59=  unset %file | unset %lastdir
  64. n60=}
  65. n61=default.fetch {
  66. n62=  -
  67. n63=  mecho 10Fetch Default Script.
  68. n64=  %default = $readini manager.ini manager default
  69. n65=  if ( %default == $null ) {  mecho 4No default script set. | halt }
  70. n66=  mecho 13< $+ %default $+ >
  71. n67=  //run mirc32.exe %default
  72. n68=  mecho 12Done.
  73. n69=  unset %default
  74. n70=}
  75. n71=path {
  76. n72=  -
  77. n73=  mecho 10Insert Correct Path.
  78. n74=  if ( $1 == -q && $2 != $null ) { %file = $2 | goto cont }
  79. n75=  filename 13
  80. n76=  :cont
  81. n77=  %nofile = $nofile( %file ) 
  82. n78=  %type = $readini %file files aliases | %type = $nopath( %type ) | //writeini %file files aliases %nofile $+ %type
  83. n79=  %type = $readini %file files popups | %type = $nopath( %type ) | //writeini %file files popups %nofile $+ %type
  84. n80=  %type = $readini %file files users | %type = $nopath( %type ) | //writeini %file files users %nofile $+ %type
  85. n81=  %type = $readini %file files variables | %type = $nopath( %type ) | //writeini %file files variables %nofile $+ %type
  86. n82=  %type = $readini %file files commands | %type = $nopath( %type ) | //writeini %file files commands %nofile $+ %type
  87. n83=  %type = $readini %file files events | %type = $nopath( %type ) | //writeini %file files events %nofile $+ %type
  88. n84=  %type = $readini %file files raw | %type = $nopath( %type ) | //writeini %file files raw %nofile $+ %type
  89. n85=  %type = $readini %file files servers | %type = $nopath( %type ) | //writeini %file files servers %nofile $+ %type
  90. n86=  %type = $readini %file files finger | %type = $nopath( %type ) | //writeini %file files finger %nofile $+ %type
  91. n87=  %type = $readini %file files urls | %type = $nopath( %type ) | //writeini %file files urls %nofile $+ %type
  92. n88=  unset %lastdir | unset %nofile | unset %type 
  93. n89=  mecho 12Done.   
  94. n90=}
  95. n91=modify {
  96. n92=  -
  97. n93=  mecho 10Modify File. 
  98. n94=  filename 13
  99. n95=  //run notepad %file
  100. n96=  unset %lastdir | unset %file
  101. n97=  mecho 12Done.
  102. n98=}
  103. n99=delete {
  104. n100=  -
  105. n101=  mecho 10Delete File. 
  106. n102=  filename 13
  107. n103=  //.remove %file
  108. n104=  unset %lastdir | unset %file
  109. n105=  mecho 12Done.
  110. n106=}
  111. n107=;
  112. n108=db.new.reg {
  113. n109=  -
  114. n110=  mecho 10New Script Database Entry (Regular)
  115. n111=  if ( $1 == -q && $2 != $null && $3 != $null ) { %entry.name = $2 | %file = $3 | goto cont }
  116. n112=  %entry.name = $?="Please enter entry name (1 word, please): "
  117. n113=  %entry.name = $gettok(%entry.name,1,32)
  118. n114=  if ( %entry.name == $null ) { mecho 4No Setting. | unset %entry.name | halt }
  119. n115=  mecho 7< $+ %entry.name $+ >
  120. n116=  filename 13
  121. n117=  :cont
  122. n118=  //writeini database.ini %entry.name src %file
  123. n119=  //writeini database.ini %entry.name date $fulldate
  124. n120=  //writeini database.ini %entry.name type Regular
  125. n121=  if ( $read -s $+ %entry.name database.doo != $null ) {
  126. n122=    /write -ds $+ %entry.name database.doo
  127. n123=    %db.total = $readini manager.ini manager dbtotal
  128. n124=    dec %db.total
  129. n125=    /writeini manager.ini manager dbtotal %db.total
  130. n126=  }
  131. n127=  write database.doo %entry.name
  132. n128=  %db.total = $readini manager.ini manager dbtotal
  133. n129=  inc %db.total
  134. n130=  //writeini manager.ini manager dbtotal %db.total
  135. n131=  unset %entry.name | unset %lastdir | unset %file | unset %db.total
  136. n132=  mecho 12Done. 
  137. n133=}
  138. n134=db.new.sl {
  139. n135=  -
  140. n136=  mecho 10New Script Database Entry (Seamless)
  141. n137=  if ( $1 == -q && $2 != $null && $3 != $null ) { %entry.name = $2 | %file = $3 | goto cont }
  142. n138=  %entry.name = $?="Please enter entry name (1 word, please): "
  143. n139=  %entry.name = $gettok(%entry.name,1,32)
  144. n140=  if ( %entry.name == $null ) { mecho 4No Setting. | unset %entry.name | halt }
  145. n141=  mecho 7< $+ %entry.name $+ >
  146. n142=  filename 13
  147. n143=  :cont
  148. n144=  //writeini database.ini %entry.name src %file
  149. n145=  //writeini database.ini %entry.name date $fulldate
  150. n146=  //writeini database.ini %entry.name type Seamless
  151. n147=  if ( $read -s $+ %entry.name database.doo != $null ) {
  152. n148=    /write -ds $+ %entry.name database.doo
  153. n149=    %db.total = $readini manager.ini manager dbtotal
  154. n150=    dec %db.total
  155. n151=    /writeini manager.ini manager dbtotal %db.total
  156. n152=  }
  157. n153=  write database.doo %entry.name
  158. n154=  %db.total = $readini manager.ini manager dbtotal
  159. n155=  inc %db.total
  160. n156=  //writeini manager.ini manager dbtotal %db.total
  161. n157=  unset %entry.name | unset %lastdir | unset %file | unset %db.total
  162. n158=  mecho 12Done. 
  163. n159=}
  164. n160=db.erase {
  165. n161=  -
  166. n162=  mecho 10Erase Script Database Entry.
  167. n163=  //set %entry.name $?="Please enter entry name to erase: "
  168. n164=  %entry.name = $gettok(%entry.name,1,32)
  169. n165=  //if ( %entry.name == $null ) { mecho 4No Setting. | unset %entry.name | halt }
  170. n166=  %test = $readini database.ini %entry.name src
  171. n167=  if ( %test == $null ) { mecho 4 $+ %entry.name $+ : No Such Entry. | mecho 3(Use Database|List for a list.) | halt }
  172. n168=  mecho 7< $+ %entry.name $+ >
  173. n169=  //remini database.ini %entry.name
  174. n170=  //write -ds $+ %entry.name database.doo
  175. n171=  %db.total = $readini manager.ini manager dbtotal
  176. n172=  dec %db.total 
  177. n173=  //writeini manager.ini manager dbtotal %db.total
  178. n174=  unset %entry.name | unset %test | unset %db.total
  179. n175=  mecho 12Done. 
  180. n176=}
  181. n177=db.list {
  182. n178=  -
  183. n179=  if ( $exists(database.doo) == $false ) { mecho 4No Database File. | halt }
  184. n180=  %db.total = $readini manager.ini manager dbtotal
  185. n181=  mecho 10Script Database Entries ( $+ %db.total $+ ):
  186. n182=  %count = 1
  187. n183=  :loop
  188. n184=  if ( %count <= %db.total ) {
  189. n185=    %entry = $read -l $+ %count database.doo
  190. n186=    if ( $readini database.ini %entry type == Seamless ) {
  191. n187=      //echo %entry (s)
  192. n188=    }
  193. n189=    else {
  194. n190=      //echo %entry
  195. n191=    }
  196. n192=    inc %count
  197. n193=    goto loop
  198. n194=  }
  199. n195=  mecho 14S = Seamless Fetching Sequence
  200. n196=  mecho 3Use Fetch|Database Entry to fetch.
  201. n197=  unset %count | unset %db.total
  202. n198=}
  203. n199=db.info {
  204. n200=  -
  205. n201=  mecho 10Script Database Entry Info.
  206. n202=  %entry.name = $?="Please enter entry name to look up: "
  207. n203=  %entry.name = $gettok(%entry.name,1,32)
  208. n204=  if ( %entry.name == $null ) { mecho 4No Setting. | unset %entry.name | halt }
  209. n205=  %test = $readini database.ini %entry.name src
  210. n206=  if ( %test == $null ) { mecho 4 $+ %entry.name $+ : No Such Entry. | mecho 3(Use Database|List for a list.) | halt }
  211. n207=  mecho 7< $+ %entry.name $+ >
  212. n208=  center 5Assigned to: $readini database.ini %entry.name src 
  213. n209=  center 5Type: $readini database.ini %entry.name type 
  214. n210=  center 5Created on: $readini database.ini %entry.name date 
  215. n211=  unset %entry.name | unset %test
  216. n212=  mecho 12Done.      
  217. n213=}
  218. n214=db.fetch {
  219. n215=  -
  220. n216=  mecho 10Fetch Script Database Entry.
  221. n217=  %entry.name = $?="Please enter database entry name to fetch: "
  222. n218=  //if ( %entry.name == $null ) { mecho 4No Setting. | unset %entry.name | halt }
  223. n219=  %file = $readini database.ini %entry.name src
  224. n220=  if ( %file == $null ) { mecho 4 $+ %entry.name $+ : No Such Entry. | mecho 3(Use Database|List for a list.) | halt }
  225. n221=  if ( $exists( %file ) == $false ) { mecho 4File  $+ %file $+  no longer exists.  Please erase entry  $+ %entry.name $+  $+ . | entry.erase | halt }
  226. n222=  mecho 7< $+ %entry.name $+ >
  227. n223=  if ( $readini database.ini %entry.name type == Regular ) { fetch -q %file | - }
  228. n224=  else if ( $readini database.ini %entry.name type == Seamless ) { seamless.fetch -q %file | - } 
  229. n225=  unset %entry.name | unset %file
  230. n226=  mecho 12Done.
  231. n227=}
  232. n228=db.clear {
  233. n229=  -
  234. n230=  mecho 10Clear Script Database
  235. n231=  /write -c database.doo
  236. n232=  /write -c database.ini
  237. n233=  writeini manager.ini manager dbtotal 0  
  238. n234=  mecho 12Done.
  239. n235=}
  240. n236=make.ini {
  241. n237=  -
  242. n238=  mecho 10Create Custom MIRC.INI.
  243. n239=  :loop
  244. n240=  %dest = $?="Please enter the destination file (INI):"
  245. n241=  if ( %dest == $null ) { mecho 4No Setting. | halt }
  246. n242=  if ( $gettok( %dest, 2, 46 ) == $null ) { mecho 4Invalid file name.  Please use: <name>.ini | goto loop }
  247. n243=  if ( $gettok( %dest, 2, 46 ) != ini ) { mecho 4Invalid file name.  Please use: <name>.ini | goto loop }
  248. n244=  if ( $exists( %dest ) == $true ) { 
  249. n245=    mecho 4File %dest already exists.
  250. n246=    :loop0
  251. n247=    %ask = $?="Do you want to overwrite this file? (Y or N)"
  252. n248=    if ( %ask == $null ) { goto loop0 }
  253. n249=    if ( %ask != yes && %ask != no && %ask != n && %ask != y ) { goto loop0 }
  254. n250=    if ( %ask == yes || %ask == y ) { goto cont }
  255. n251=    if ( %ask == no || %ask == n ) { mecho 4Operation aborted. | halt }  
  256. n252=  }  
  257. n253=  :cont
  258. n254=  mecho 13< $+ %dest $+ >
  259. n255=  mecho 3Generating default structure...
  260. n256=  if ( $exists(mirc.doo) == $false ) { mecho 4No structure file found. (mirc.doo) | halt }
  261. n257=  //copy.file mirc.doo %dest
  262. n258=  mecho 12Done.
  263. n259=  mecho 3Use Custom|Add To Generated INI to specify files in your new INI.  Afterwards, use Fetch to get it.
  264. n260=}
  265. n261=add {
  266. n262=  -
  267. n263=  mecho 10Add $1 Location
  268. n264=  :loop
  269. n265=  %dest = $?="Please enter the destination file (INI):"
  270. n266=  if ( %dest == $null ) { mecho 4No Setting. | halt }
  271. n267=  if ( $gettok( %dest, 2, 46 ) == $null ) { mecho 4Invalid file name.  Should be: <name>.ini | goto loop }
  272. n268=  if ( $gettok( %dest, 2, 46 ) != ini ) { mecho 4Invalid file name.  Should be: <name>.ini | goto loop }
  273. n269=  if ( $exists( %dest ) == $false ) { 
  274. n270=    mecho 4This file doesn't exist.
  275. n271=    :loop0
  276. n272=    %ask = $?="Do you want to create this file? (Y or N)"
  277. n273=    if ( %ask == $null ) { goto loop0 }
  278. n274=    if ( %ask != yes && %ask != no && %ask != n && %ask != y ) { goto loop0 }
  279. n275=    if ( %ask == yes || %ask == y ) { make.ini | halt }
  280. n276=    if ( %ask == no || %ask == n ) { mecho 4Operation aborted. | halt }  
  281. n277=  }
  282. n278=  %lastdir = $readini manager.ini manager lastdir
  283. n279=  //set %file $dir="Choose respective file." %lastdir  
  284. n280=  //if ( %file == $null ) { mecho 4No Setting. | halt }
  285. n281=  mecho 13< $+ %file $+ >
  286. n282=  //writeini manager.ini manager lastdir %file
  287. n283=  //writeini %dest files $1 %file
  288. n284=  mecho 12Done. 
  289. n285=}
  290. n286=setup {
  291. n287=  -
  292. n288=  mecho 10Install New Script - Setup
  293. n289=  %setup = $dir="Please choose the setup program." $mircdir
  294. n290=  if ( %setup == $null ) { mecho 4No Setting. | halt }
  295. n291=  mecho 13< $+ [ %setup ] $+ >
  296. n292=  run %setup
  297. n293=  mecho 12Done
  298. n294=}
  299. n295=zip {
  300. n296=  -
  301. n297=  mecho 10Install New Script - Zip
  302. n298=  %script.name = $?="What will you call this script? (1 word please):"
  303. n299=  if ( %script.name == $null ) { mecho 4No Setting. | halt }
  304. n300=  %script.name = $gettok(%script.name,1,32)
  305. n301=  mecho 7< $+ %script.name $+ >
  306. n302=  :loop
  307. n303=  %file = $dir="Choose the ZIP file." *.zip
  308. n304=  if ( %file == $null ) { mecho 4No Setting. | halt }
  309. n305=  if ( $gettok(%file,2,46) != zip ) { mecho 4Invalid file extension. | goto loop }
  310. n306=  mecho 13< $+ %file $+ >
  311. n307=  writeini manager.ini manager lastdir %file
  312. n308=  %file.name = $nopath(%file)
  313. n309=  %dir = $mircdir $+ %script.name $+ \
  314. n310=  mecho 5The file will now be:
  315. n311=  zip.a
  316. n312=}
  317. n313=zip.a {
  318. n314=  mecho 5o Copied into the directory %dir 
  319. n315=  //run dos.exe del /q %dir
  320. n316=  //run dos.exe mkdir %dir
  321. n317=  //run dos.exe copy %file %dir
  322. n318=  .timer 1 2 /zip.b
  323. n319=}
  324. n320=zip.b {
  325. n321=  %file = %dir $+ %file.name
  326. n322=  mecho 5o Extracted to that directory
  327. n323=  //run pkunzip.exe %file %dir
  328. n324=  .timer 1 3 /zip.c  
  329. n325=}
  330. n326=zip.c {
  331. n327=  mecho 5o Appended into the script database
  332. n328=  %ini = %dir $+ mirc.ini
  333. n329=  if ( $exists( %ini ) == $false ) { 
  334. n330=    mecho 4No immediate mirc.ini. 
  335. n331=    mecho 4Searching subdirectories...
  336. n332=    if ( $findfile( %dir, mirc.ini, 1 ) == $null ) { mecho 4No mirc.ini exists.  Database entry cannot be created. | halt } 
  337. n333=  }
  338. n334=  db.new.sl -q %script.name %ini | -
  339. n335=  mecho 12Done.
  340. n336=}
  341. n337=func {
  342. n338=  -
  343. n339=  mecho 10Assign Function Key To F $+ $1 
  344. n340=  %entry.name = $?="Please enter entry name to assign: "
  345. n341=  %entry.name = $gettok(%entry.name,1,32)
  346. n342=  if ( %entry.name == $null ) { mecho 4No Setting. | unset %entry.name | halt }
  347. n343=  %test = $readini database.ini %entry.name src
  348. n344=  if ( %test == $null ) { mecho 4 $+ %entry.name $+ : No Such Entry. | mecho 3(Use Database|Show Entries for a list.) | halt }
  349. n345=  mecho 7< $+ %entry.name $+ >
  350. n346=  %test0 = $readini database.ini %entry.name type
  351. n347=  if ( %test0 == Seamless ) {
  352. n348=    //alias /F [ $+ [ $1 ] ] /seamless.fetch -q %test
  353. n349=  }
  354. n350=  else { //alias /F [ $+ [ $1 ] ] /run mirc32.exe %test } 
  355. n351=  mecho 12Done.
  356. n352=}
  357. n353=unzip {
  358. n354=  -
  359. n355=  mecho 10Unzip file.
  360. n356=  filename 13
  361. n357=  :loop
  362. n358=  if ( %tries >= 3 ) { mecho 4OK. I give up. | halt }
  363. n359=  %loc = $?="Please write the directory for output."
  364. n360=  if ( %loc == $null ) { mecho 4Please write in the directory. | inc %tries | goto loop } 
  365. n361=  //run pkunzip.exe %file %loc
  366. n362=  mecho 12Done. 
  367. n363=}
  368. n364=dos {
  369. n365=  -
  370. n366=  mecho 10Run Dos Command
  371. n367=  %dos = $?="Please type in DOS command to run:"
  372. n368=  if ( %dos == $null ) { mecho 4No Setting. | halt }
  373. n369=  mecho 13< $+ %dos $+ >
  374. n370=  //run dos.exe %dos
  375. n371=  mecho 12Done.
  376. n372=}
  377. n373=stats {
  378. n374=  -
  379. n375=  mecho 10Stats
  380. n376=  if ( %autoinsert != $null ) { center 5Auto Insert Path: ON }
  381. n377=  else { center 5Auto Insert Path: OFF }
  382. n378=  if ( %autoinfo != $null ) { center 5Auto Insert User Info: ON }
  383. n379=  else { center 5Auto Insert User Info: OFF }
  384. n380=  if ( %logging != $null ) { center 5Logging: ON }
  385. n381=  else { center 5Logging: OFF }
  386. n382=  if ( $lines( database.doo ) >= 1 ) { center 5Database: Active $readini manager.ini manager dbtotal Entries. }
  387. n383=  else { center 5Database: Inactive } 
  388. n384=  if ( $readini manager.ini manager default != $null ) { center 5Default Script: $readini manager.ini manager default  }
  389. n385=  else { center 5Default Script: None }
  390. n386=  if ( %name != $null && %email != $null && %nick != $null && %anick != $null ) { center 5User Info: | center 5 $+ %name %email %nick %anick  }
  391. n387=  if ( %dest != $null ) { center 5Last Generated INI: %dest  }
  392. n388=  mecho 12Done.
  393. n389=}
  394. n390=ui.set {
  395. n391=  -
  396. n392=  mecho 10Set User Information
  397. n393=  %name = $?="Please enter 'Real Name':"
  398. n394=  if ( %name == $null ) { mecho 4No Setting. | halt }
  399. n395=  mecho 7 $+ < $+ %name $+ > $+ 
  400. n396=  %email = $?="Please enter 'E-Mail':"
  401. n397=  if ( %email == $null ) { mecho 4No Setting. | halt }
  402. n398=  mecho 7 $+ < $+ %email $+ > $+ 
  403. n399=  %nick = $?="Please enter 'Nickname':"
  404. n400=  if ( %nick == $null ) { mecho 4No Setting. | halt }
  405. n401=  mecho 7 $+ < $+ %nick $+ > $+ 
  406. n402=  %anick = $?="Please enter 'Alternative Nickname':"
  407. n403=  if ( %anick == $null ) { mecho 4No Setting. | halt }
  408. n404=  mecho 7 $+ < $+ %anick $+ > $+ 
  409. n405=  mecho 12Done.
  410. n406=}
  411. n407=ui.insert {
  412. n408=  -
  413. n409=  mecho 10Insert User Information
  414. n410=  if ( $1 == -q && $2 != $null ) { %file = $2 | goto cont }
  415. n411=  filename 13
  416. n412=  :cont
  417. n413=  if ( %name == $null || %email == $null || %nick == $null || %anick == $null ) { mecho 4Not all information is set. | mecho 3Please use Settings|User Info to set. }
  418. n414=  /writeini %file mIRC user %name
  419. n415=  /writeini %file mIRC email %email
  420. n416=  /writeini %file mIRC nick %nick
  421. n417=  /writeini %file mIRC anick %anick
  422. n418=  mecho 12Done.
  423. n419=}
  424. n420=seamless.fetch {
  425. n421=  -
  426. n422=  mecho 10Seamless Fetch
  427. n423=  if ( $1 == -q && $2 != $null ) { %file = $2 | goto cont0 }
  428. n424=  filename 13
  429. n425=  :cont0
  430. n426=  if ( $readini manager.ini manager sdir == $null ) { goto cont }
  431. n427=  //.remove [ $readini manager.ini manager sdir ]
  432. n428=  :cont
  433. n429=  %dir = $nofile(%file)
  434. n430=  if ( $exists( [ %dir $+ mirc32.exe ] ) == $true ) { 
  435. n431=    if ( %autoinsert = YES ) { //path -q %file | - }
  436. n432=    if ( %autoinfo = YES ) { //ui.insert -q %file }
  437. n433=    run [ %dir $+ mirc32.exe ] %file
  438. n434=  }
  439. n435=  else {
  440. n436=    if ( %autoinsert = YES ) { //path -q %file | - }
  441. n437=    if ( %autoinfo = YES ) { //ui.insert -q %file }
  442. n438=    run dos.exe copy mirc32.exe %dir
  443. n439=    writeini manager.ini manager sdir [ %dir $+ mirc32.exe ] 
  444. n440=    .timer 1 2 run [ %dir $+ mirc32.exe ] %file
  445. n441=  }
  446. n442=  mecho 12Done.
  447. n443=}
  448. n444=f1 { 
  449. n445=  echo -s á
  450. n446=  echo -s á
  451. n447=  center 012,12M012,12M012,12DD0
  452. n448=  center 4,4----012,12MM012,12MM012,12D012,12D04,4----
  453. n449=  center 012,12M012,12M012,12M012,12OOO012,12OOO012,12D012,12D012,12OOO012,12OOO0
  454. n450=  center 4,4----012,12M012,12M012,12O012,12O012,12O012,12O012,12D012,12D012,12O012,12O012,12O012,12O04,4----
  455. n451=  center 012,12M012,12M012,12OOO012,12OOO012,12DD012,12OOO012,12OOO0
  456. n452=  echo -s á
  457. n453=  center Scriptá Manager
  458. n454=  echo -s á 
  459. n455=  center 01,1PPP01,1RRR01,1OOO0
  460. n456=  center 01,1P01,1P01,1R01,1R01,1O01,1O0
  461. n457=  center 01,1PPP01,1RRR01,1O01,1O0
  462. n458=  center 01,1P01,1RR01,1O01,1O0
  463. n459=  center 01,1P01,1R01,1R01,1OOO0
  464. n460=  echo -s á
  465. n461=  center 8,1Version 4.9
  466. n462=  echo -s á
  467. n463=  center Written and beta-tested by
  468. n464=  center 11,12P o o l e
  469. n465=  center 0,12brukh3@superlink.net
  470. n466=  center ---
  471. n467=  center "I think that I have never knew
  472. n468=  center A word more lovelier than moo."
  473. n469=  center ---
  474. n470=  center 3=MooDoo= Script Manager Pro 4.9 fully innovated to fit mIRC 4.72 technology.
  475. n471=  center ---
  476. n472=  center 6,15Copyright ⌐ 1997 I Make Poole, Inc.
  477. n473=  center ---
  478. n474=  center =MooDoo= Headquarters:
  479. n475=  center 12http://www.geocities.com/SiliconValley/Heights/8917/moodoo.html
  480. n476=  if ( $dde moodoo connected "" == connected ) { ame is using =MooDoo= Script Manager Pro 4.9 for mIRC 4.72 by Poole. }
  481. n477=}
  482. n478=thanx {
  483. n479=  echo -s á
  484. n480=  echo -s á
  485. n481=  center Special thanks goes to the following people:
  486. n482=  center Hawkee
  487. n483=  center [Bush]
  488. n484=  center BEATLES
  489. n485=  center Hiro101
  490. n486=  center NiKes
  491. n487=  center WildP
  492. n488=  center B|zZyB0Ne
  493. n489=  center Lars_Ulrich
  494. n490=  center and others.
  495. n491=}
  496.  
  497. [mPopup]
  498. n0==MooDoo=:{
  499. n1=  if ( $dde moodoo connected "" == connected ) { play -c $me script.moo 65 }
  500. n2=  else { mecho 4You must be connected to a server to play animation. | halt }
  501. n3=}
  502. n4=-
  503. n5=Help!:/run notepad.exe help.txt
  504. n6=-
  505. n7=Install Script
  506. n8=.ZIP:/zip
  507. n9=.Setup:/setup
  508. n10=Fetch
  509. n11=.Script:/fetch
  510. n12=.Default Script:/default.fetch
  511. n13=.Database Entry:/db.fetch
  512. n14=.-
  513. n15=.Seamless Fetch:/seamless.fetch
  514. n16=Settings
  515. n17=.Default Script:/default.set
  516. n18=.User Info:/ui.set
  517. n19=.-
  518. n20=.Function Keys
  519. n21=..F3:/func 3
  520. n22=..F4:/func 4
  521. n23=..F5:/func 5
  522. n24=..F6:/func 6
  523. n25=..F7:/func 7
  524. n26=..F8:/func 8
  525. n27=..F9:/func 9
  526. n28=..F10:/func 10
  527. n29=..F11:/func 11
  528. n30=..F12:/func 12
  529. n31=.-
  530. n32=.Logging
  531. n33=..ON:{ /.log on status | /mecho 3Logging ON. | %logging = ON }
  532. n34=..OFF:{ /.log off status | /mecho 3Logging OFF. | unset %logging}
  533. n35=INI Files
  534. n36=.Insert
  535. n37=..Correct Path:/path
  536. n38=..User Info:/ui.insert
  537. n39=.Auto-Insert
  538. n40=..Correct Path
  539. n41=...ON:{ mecho 3Auto Path Insert ON | %autoinsert = YES }
  540. n42=...OFF:{ mecho 3Auto Path Insert OFF | unset %autoinsert }
  541. n43=..User Info
  542. n44=...ON:{ mecho 3Auto User Info Insert ON | %autoinfo = YES }
  543. n45=...OFF:{ mecho 3Auto User Info Insert OFF | unset %autoinfo }
  544. n46=.-
  545. n47=.Modify:/modify
  546. n48=.Delete:/delete
  547. n49=Custom
  548. n50=.Generate MIRC.INI:/make.ini
  549. n51=.Add To Generated INI
  550. n52=..Aliases:/add Aliases
  551. n53=..Popups:/add Popups
  552. n54=..Users:/add Users
  553. n55=..Variables:/add Variables
  554. n56=..Commands:/add Commands
  555. n57=..Events:/add Events
  556. n58=..Raw:/add Raw
  557. n59=Database
  558. n60=.New Entry
  559. n61=..Regular:/db.new.reg
  560. n62=..Seamless:/db.new.sl
  561. n63=.Erase Entry:/db.erase
  562. n64=.Clear Database:/db.clear
  563. n65=.List:/db.list
  564. n66=.Entry Info:/db.info
  565. n67=-
  566. n68=Stats:/stats
  567. n69=-
  568. n70=Extras
  569. n71=.Unzip File:/unzip
  570. n72=.Run DOS Command:/dos
  571. n73=-
  572. n74=About (F1):/f1
  573. n75=Thanks To:/thanx
  574.  
  575. [bPopup]
  576. n0==MooDoo=
  577. n1==MooDoo=:{
  578. n2=  if ( $dde moodoo connected "" == connected ) { play -c $me script.moo 65 }
  579. n3=  else { mecho 4You must be connected to a server to play animation. | halt }
  580. n4=}
  581. n5=-
  582. n6=Help!:/run notepad.exe help.txt
  583. n7=-
  584. n8=Install Script
  585. n9=.ZIP:/zip
  586. n10=.Setup:/setup
  587. n11=Fetch
  588. n12=.Script:/fetch
  589. n13=.Default Script:/default.fetch
  590. n14=.Database Entry:/db.fetch
  591. n15=.-
  592. n16=.Seamless Fetch:/seamless.fetch
  593. n17=Settings
  594. n18=.Default Script:/default.set
  595. n19=.User Info:/ui.set
  596. n20=.-
  597. n21=.Function Keys
  598. n22=..F3:/func 3
  599. n23=..F4:/func 4
  600. n24=..F5:/func 5
  601. n25=..F6:/func 6
  602. n26=..F7:/func 7
  603. n27=..F8:/func 8
  604. n28=..F9:/func 9
  605. n29=..F10:/func 10
  606. n30=..F11:/func 11
  607. n31=..F12:/func 12
  608. n32=.-
  609. n33=.Logging
  610. n34=..ON:{ /.log on status | /mecho 3Logging ON. | %logging = ON }
  611. n35=..OFF:{ /.log off status | /mecho 3Logging OFF. | unset %logging}
  612. n36=INI Files
  613. n37=.Insert
  614. n38=..Correct Path:/path
  615. n39=..User Info:/ui.insert
  616. n40=.Auto-Insert
  617. n41=..Correct Path
  618. n42=...ON:{ mecho 3Auto Path Insert ON | %autoinsert = YES }
  619. n43=...OFF:{ mecho 3Auto Path Insert OFF | unset %autoinsert }
  620. n44=..User Info
  621. n45=...ON:{ mecho 3Auto User Info Insert ON | %autoinfo = YES }
  622. n46=...OFF:{ mecho 3Auto User Info Insert OFF | unset %autoinfo }
  623. n47=.-
  624. n48=.Modify:/modify
  625. n49=.Delete:/delete
  626. n50=Custom
  627. n51=.Generate MIRC.INI:/make.ini
  628. n52=.Add To Generated INI
  629. n53=..Aliases:/add Aliases
  630. n54=..Popups:/add Popups
  631. n55=..Users:/add Users
  632. n56=..Variables:/add Variables
  633. n57=..Commands:/add Commands
  634. n58=..Events:/add Events
  635. n59=..Raw:/add Raw
  636. n60=Database
  637. n61=.New Entry
  638. n62=..Regular:/db.new.reg
  639. n63=..Seamless:/db.new.sl
  640. n64=.Erase Entry:/db.erase
  641. n65=.Clear Database:/db.clear
  642. n66=.List:/db.list
  643. n67=.Entry Info:/db.info
  644. n68=-
  645. n69=Stats:/stats
  646. n70=-
  647. n71=Extras
  648. n72=.Unzip File:/unzip
  649. n73=.Run DOS Command:/dos
  650. n74=-
  651. n75=About (F1):/f1
  652. n76=Thanks To:/thanx
  653.  
  654. [Variables]
  655. n0=%autoinsert YES
  656.